home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / OOmodules / application.e next >
Text File  |  1996-05-11  |  1KB  |  67 lines
  1. OPT MODULE
  2.  
  3. /*
  4.  
  5. Application object. Features: arexx port, commodity
  6.  
  7.     NAME
  8.         application
  9.  
  10.     PURPOSE
  11.         A basic application object. By now it's totally undefined what will
  12.         find it's way in here. Any ideas are welcome. Here's a list of things
  13.         That could be part of this object in the future:
  14.  
  15.         - locale support
  16.         - arexx support
  17.         - commodity
  18.         - gui engine (easygui and/or MUI via compiler switch)
  19.  
  20. */
  21.  
  22. MODULE  'oomodules/object',
  23.         'oomodules/commodity',
  24.         'oomodules/library/exec/port/arexxport',
  25.         'oomodules/library/exec/port/portlist'
  26.  
  27. OBJECT application OF object
  28.   commodity:PTR TO commodity
  29.   ports:PTR TO portList
  30. ENDOBJECT
  31.  
  32. PROC init() OF application
  33.  
  34.   NEW ports.new()
  35.  
  36. ENDPROC
  37.  
  38. PROC select(opts,i) OF application
  39. DEF item,
  40.     arexx:PTR TO arexxPort,
  41.     cx:PTR TO commodity
  42.  
  43.   item:=ListItem(opts,i)
  44.  
  45.  
  46.   SELECT item
  47.  
  48.     CASE "rexx"
  49.  
  50.       INC i
  51.       NEW arexx.new(ListItem(opts,i))
  52.       self.ports.add(arexx,"rexx")
  53.  
  54.     CASE "cx"
  55.  
  56.       NEW cx.new(ListItem(opts,i))
  57.       self.commodity := cx
  58.  
  59.   ENDSELECT
  60.  
  61. ENDPROC i
  62.  
  63. /*EE folds
  64. -1
  65. 32 3 35 22 
  66. EE folds*/
  67.